home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 1: Comms & Networking / Almathera Ten on Ten - Disc 1: Comms & Networking.iso / tools / archie / archie-1.4 / stcopy.c < prev    next >
C/C++ Source or Header  |  1995-05-01  |  2KB  |  111 lines
  1. /*
  2.  * Copyright (c) 1989, 1990, 1991 by the University of Washington
  3.  *
  4.  * For copying and distribution information, please see the file
  5.  * <copyright.h>.
  6.  */
  7. /* Amiga port by Tomas Willis (tomas@cae.wisc.edu) January 1995 */
  8.  
  9. #include <stdio.h>
  10. #include "pmachine.h"
  11.  
  12. #ifdef NEED_STRING_H
  13. # include <string.h>
  14. #else
  15. # include <strings.h>
  16. #endif
  17.  
  18. #if defined(MSDOS)
  19. # include <stdlib.h>
  20. #endif
  21.  
  22. int    string_count = 0;
  23. int    string_max = 0;
  24.  
  25. //protos
  26. char * stcopy(char *st);
  27. char * stcopyr(char *s, char *r);
  28. void stfree(char *st);
  29.  
  30. //extern
  31.  
  32.  
  33. /*
  34.  * stcopy - allocate space for and copy a string
  35.  *
  36.  *     STCOPY takes a string as an argument, allocates space for
  37.  *     a copy of the string, copies the string to the allocated space,
  38.  *     and returns a pointer to the copy.
  39.  */
  40.  
  41. char *
  42. stcopy(char *st)
  43. //    char    *st;
  44.     {
  45.       if (!st) return(NULL);
  46.       if (string_max < ++string_count) string_max = string_count;
  47.  
  48.       return strcpy((char *)malloc(strlen(st) + 1), st);
  49.     }
  50.  
  51. /*
  52.  * stcopyr - copy a string allocating space if necessary
  53.  *
  54.  *     STCOPYR takes a string, S, as an argument, and a pointer to a second
  55.  *     string, R, which is to be replaced by S.  If R is long enough to
  56.  *     hold S, S is copied.  Otherwise, new space is allocated, and R is
  57.  *     freed.  S is then copied to the newly allocated space.  If S is
  58.  *     NULL, then R is freed and NULL is returned.
  59.  *
  60.  *     In any event, STCOPYR returns a pointer to the new copy of S,
  61.  *     or a NULL pointer.
  62.  */
  63. char *
  64. stcopyr(char *s, char *r)
  65. //    char    *s;
  66. //    char    *r;
  67.     {
  68.     int    sl;
  69.  
  70.     if(!s && r) {
  71.         free(r);
  72.         string_count--;
  73.         return(NULL);
  74.     }
  75.     else if (!s) return(NULL);
  76.  
  77.     sl = strlen(s) + 1;
  78.  
  79.     if(r) {
  80.         if ((strlen(r) + 1) < sl) {
  81.         free(r);
  82.         r = (char *) malloc(sl);
  83.         }
  84.     }
  85.     else {
  86.         r = (char *) malloc(sl);
  87.         string_count++;
  88.         if(string_max < string_count) string_max = string_count;
  89.     }
  90.         
  91.     return strcpy(r,s);
  92.     }
  93.  
  94. /*
  95.  * stfree - free space allocated by stcopy or stalloc
  96.  *
  97.  *     STFREE takes a string that was returned by stcopy or stalloc
  98.  *     and frees the space that was allocated for the string.
  99.  */
  100. void
  101. stfree(char *st)
  102. //    char *st;
  103.     {
  104.     if(st) {
  105.         free(st);
  106.         string_count--;
  107.     }
  108.     }
  109.  
  110.  
  111.